Ниже представлен пример поиска минимального и максимального элемента в одномерном массиве на языке Pascal . В программе используются стандартные константы языка Free Pascal
— MaxInt содержит самое большое целое число (32,767)
— MaxLongint содержит самое большое двойное целое (2,147,483,647)
var a:array[1..5] of integer;
min:integer;
max:integer;
i:integer;
begin
writeln('введите 5 элементов массива');
min:=MAXINT;
max:=not(MAXINT);
for i:=1 to 5 do begin
readln( a[i] );
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
writeln( 'Минимальный элемент массива = ', min );
writeln( 'Максимальный элемент массива = ', max );
end.
Ниже представлен пример поиска минимального и максимального элемента в двумерном массиве на языке Pascal . Дополнительно подключение генератор простых чисел для быстрого заполнения данных.
var a:array[1..3,1..3] of integer;
min:integer;
max:integer;
i,j:integer;
begin
randomize;
writeln('Искомый массив 3 на 3');
for i:=1 to 3 do
for j:=1 to 3 do begin
a[i,j]:=random(100);
if j<>3 then write(' ', a[i,j]) else writeln(' ',a[i,j]);
end;
min:=MAXINT;
max:=not(MAXINT);
for i:=1 to 3 do
for j:=1 to 3 do begin
if min>a[i,i] then min:=a[i,j];
if max<a[i,j] then max:=a[i,j];
end;
writeln( 'Минимальный элемент массива = ', min );
writeln( 'Максимальный элемент массива = ', max );
end.